home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].zip / MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].adf / Programs / time.bas < prev    next >
BASIC Source File  |  1989-12-27  |  1KB  |  39 lines
  1. DIM hour$(23),min$(11)
  2. min$(1)="five"
  3. min$(2)="ten"
  4. min$(4)="twenty"
  5. min$(5)="twenty five"
  6. FOR i = 0 TO 23
  7. READ hour$(i)
  8. NEXT
  9. DATA midnight,one,two,three,four,five,six,seven,eight,nine,ten,elaven
  10. DATA noon,one,two,three,four,five,six,seven,eight,nine,ten,elaven 
  11. hour=VAL(LEFT$(TIME$,2))
  12. min=VAL(MID$(TIME$,4))
  13. sec=VAL(MID$(TIME$,7))
  14. IF sec>=30 THEN min=min+1 
  15. IF min=60 THEN min=0:hour=hour+1
  16. IF min MOD 5 = 0 THEN approx$="exactly "
  17. IF min MOD 5 =3 OR min MOD 5 =4 THEN
  18. approx$="neely "
  19. min = min +5 - min MOD 5
  20. END IF
  21. IF min MOD 5 =1 OR min MOD 5 =2 THEN 
  22. approx$="justafter "
  23. min = min- min MOD 5
  24.  
  25. END IF
  26. main$= min$(min/5)+" past "
  27. IF min >30 THEN main$= min$(12 -min/5)+ " to ":hour=hour+1
  28. IF min=0 THEN main$=" "
  29. IF min=45 THEN main$="quarter to "
  30. IF min=30 THEN main$="haafpast "
  31. IF min= 15 THEN main$="quarterpast "
  32. hour= hour MOD 24
  33. IF hour=0 OR hour =12 THEN hourdes$="" 
  34. IF min=0 AND (hour<>0 AND hour<>12)THEN exacthour$=" uhclock" ELSE exacthour$="" 
  35.  
  36. msg$=  "It's "+approx$+main$+hour$(hour)+exacthour$+"."
  37. SAY TRANSLATE$(msg$)
  38.  
  39.